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Editorial .. 

Explicación de los programas 
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EDITORIAL 

Queridos amigos: 

Al tabular y analizar las cartas que nos enviáis, hemos 
comprobado que el lector tiene poco o ningún conocimien¬ 
to sobre la programación de ordenadores. 

En este número algunos de los programas los hemos 
listado, con lo que pretendemos familiarizar al usuario con 
su ordenador y con su Basic, mejorar sus conocimientos y 
divertirse al mismo tiempo. Todos los programas son rela¬ 
tivamente cortos, para que los tecleéis y veáis lo antes po¬ 
sible los resultados. 

Como véis, los programas se dividen en varias vertien¬ 
tes, utilidades, diversión, matemáticas, etc. 

Escribirnos con vuestras preferencias. 

Esperamos que esta intención os sea de utilidad y con 
vuestra voluntad y nuestra pequeña contribución, seáis ca^ 
paces de elaborar poco a poco, programas cada vez más 
complicados. 

Suerte y hasta el próximo número. 





































































































































































































































































































































































IMPIDE QUE LOS GLUP 
RLCRNCEH EL NUCLEO 
ENERGETICO. SOLO 
TEHDRRS QUE TOCAR¬ 
LOS. TECLAS: 

O:-®- z:# I P 




O 



: ^jy~ <r- :■;—' . -■•*•;-• -‘~'r.* %?-lí^üfp jg tf T; : *y* 'y>W W>C^.1^7X-T**■ ’*P~ : esa**** *»:»^ ESUff "*y^Sy*^3£STSy^y**gá?*U Bt¡tgiiy i* 1 *' 

1 IF INKEY$="g" THEN GO TO 9999 

2 CLS : LET R=OJ PRINT AT 10,10!"PARA LA CINTA": PAUSE 200 
5 PGKE 23675,0: POKE 23076,91 

10 POKE 23693,7! BORDER O: CLS : PRINT AT 3,0!"?????? NUCLEO ENERGETICO ????? 

? » ’ ’ '■ IMP IDE QUE LOS HA WP°TFMTn6 Al UPS .DEVOREN E L NUCLEO ENERG ETICO B UE ,,,, "DE F 

I ENDES ■ SIMPLEMENTE CON TOCAR*** "LOS MORIRAN. CONTROLES! 11 **" I - IZQUIERDA , P~ D 
ERECHA 1 ' ’ ’ "G-ARRIBA A-ABAJO" 

12 PRINT ’"????????????????????????????????"; GO SUB 9000 

20 CLS : PRINT FLASH JL i PAPER 2|AT 8, i 4 í 11 PtPtPtPt ,J í AT 9 s 13; rt hh7?hh" ? AT 10, 12? *hh7? 
? ?Ptft" ; AT 11,12; í 'P.R.????P(Pt ,i i AT 12, 13i "PiPt??PtFt u i AT 13, 14? "hbfoh" 

2Ó GO SUB 9100 

■30 BIH a(10,27: — RESTORE 5Crr“FÜR z = 1 TTO 1—REA© x , yi — IP- x- PI T H EN LET- x- = -IMT — \ R 
N D*22) - - - ¿ --- - -----— 


32 

33 

50 

51 

52 
90 


IF y = FI THEN LET y-INT (RND#32> 

PRINT AT' x * yi: LET a(z,l>=x: LET aíz,2)=y: NEXT z 
DATA O,PI,O,PI,O,PI 
DATA 21,PI,21,PIj 21» PI 
DATA PIjO.P^O, PI,31 r PI,31 

LET xb=10: LET yb=10: LET X=10: LET Y=10: LET C=I 
TOO IF INKEY$= M q" THEN LET x=x-í: Í"F x<O - THEN LET x = Q 

102 IF lNKEYS= <1 i" THEN LET y-y-1: IF y<0 THEN LET y = 0 

103 IF INKEY$= ,í p H THEN LET y=y + i: IF y>31 THEN LET y^3Í 

105 IF CODE SCREENS Cx,y)=0 THEN IF ATTR íx,y)<>? THEN GO SUB 200 

106 IF SCREENÍ fx,y)= M Pi M THEN BEEP 1/100,10: LET x=xfe>; LET y=yb 
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iro PRINT AT x t>, y b > " "i AT X,Y¡ LET xb-x¡ LET yb»y 

120 GO SUE 1000 


190 fíO TQ 1Q.Q. 


200 FOR z — 1 TO 10: IF a(z, 1)=x AND a(z,21=y THEN FRINT AT x,y i "?"I BEFP 1/100,2 

GO SUE 9200: LET p=p+ÍG: GO SUE 9100 

ng«H9s| 

, n y * M M ' 

•.r \ 




vmmsm 



210 NEXT 2: RETI 
1000 PRINT AT = 

1005 LET v*«<e,l)S LET w=afc,2) 

1010 IF v<10 ANO RND>.5 THEN LET v = v + l 

1011 IF v>10 AMD RND>.5 THEN LET v-v-1 

lOiS IP w>ló THEN LET w-w-1 

104-3 — I F — w-<-l-ó—T-HE-W — L-E-T ----- 

1020 IF SCREEN* ( V, w)= " fc* THEN 00 TO 2000 
1025 LET a Ce,1)=v: LET a(c,2)=M 
1030 PRINT AT v,w ¡-?“ 

1040 LET c=c+l: IF c>10 THEN LET c=i 

2000 FOR n = l TC 7: FOR m-1 TQ 7¡ PRINT INK m i AT a ( c , 1) , a < c , 2 ) ?"i _ EEEP — 1_ /50, g)f t 



7-n): PAUSE m: NEXT mí NEXT ri 

201 U l-UP n=/ — TO “O STLH ~H hkín i. ink ni«i * >yi" ■ • 


-EE E P 1 /3U . 1 1 NEX I r.! PKINi hI 


2020 PRINT AT 10,11? "GANE OVER” • 

2030 IF P >=R THEN LET R=P: PRINT AT 12,10?“NUEVO RECORD” 
2050 SUE 9000: CO TO 10 
7000 PAUSE Ó 

3 000 S T O P -- 



a nnn PPtMT at s j , =i a PARA EMP EZAR-ü- 

9010 IF INKEY*=“s“ 0R INKEYS="S" THEN BEEP 1/50,30: RETURN 
9020 60 TO 9010 
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9100 1NPÜT 11 " .* PRINT Al 5”PT:”;P¡TAB 16 i « RC : “ ; R: RETURN _ 

9ZOO LEI v=TNT-fR]TO¥22y-:“CÉT w*lNT IRÑM32) 

920S IF 3CREEN® lv,w)=” “ THEN LET a(z,l>-v: LET a(z,2)=w: PRINT AT v,*}"?": RET 
URN 

9210 GG TO 9200 

9993 BGRDER O: POKE 23693,, 7: CLS : LOAD *“m “ ; 1 í ” nc “ CODE : LOAD “ } 1; M ns “ SCREEN 
$ : GG TO 1 

9999 SAVE - NUCLEO "CODE 16384, PEEK 23Ó27+25'6*PEEK 23628-16382: 60 TO 1 



€- RRRIBR 7- RBAÜO 

5- IZQUIERDO 8- DERECHR 


0- RLTERRR RTTR DEL CRRRCTER S - SRUE PRNTRLLR 

1- CAMBIAR ATRIBUTOS CURSOR L - LORD PRNTRLLR 

2 — CAMBIAR ATRIBUTOS PRNTRLLR 

1 IF INKEY*="g” THEN GO TO 9999 

2 POKE 23693756: BORDÉR 7 \ CLS : PRI NT AT 10,10 (“PARA LA CINTA "T PAUSE 200: C 
LS 

10 PRINT AT 3,9¡“ << ATTR >> “ 

12 PRINT ; PRINT “6- ARRIBA”,"7- ABAJO”: PRINT : PRINT “5- IZQUIERDA”,“8- DERE 
CHA”: PRINT : PRINT “O- ALTERAR ATTR DEL CARACTER” 
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írj PRINT : PRINT “1- CAMBIAR ATRIBUTOS CURSOR*í PRINT : PRINT "2- CAMBIAR ATRI 
BUTOS PANTALLA": PRINT : PRINT "S- SAVE PANTALLA'! PRINT ; PRINT *L- LOAD PANTAL 
LA " 

20 FOR Z=USR "A" TO USR READ 7¿z: POKE Z,ZZ: NEXT Z: DATA 255,129,129,12 

9 1 2 ., lZg-, 129,129,255_ 

50 LET X=0! LET Y=0: LET XB=0; LET YB=0 
60 PRINT OVER 1;AT ¿,y 5"? * 

80 LET p=8! LET t=S: LET b=8: LET +=8! PAPER S: INK 8: BRIGHT 3; FLASH 8 

100 IF INKEY*="5" THEN LET Y=Y-i: IF Y<0 THEN LET Y=0 

101 IF INKEYí=“8" THEN LET Y-Y+i; IF Y>31 THEN LET Y=31 

102 IF INKEYS="6" THEN LET X=X+1: IF X>21 THEN LET X=21 

103 IF INKEY*="7" THEN LET X=X-l: IF X<0 THEN LET X=0 

410 IF INKEY*="0" THEN PRINT OVER 1¡ PAPER P} INK Ti BRIGHT Bi FLASH FjfrT xj/i " 
■:_BEEP 1/100,30 

120 IF IMKEY*="1" THEN GO SUB 9000: BEEP 1/50,30 

125 IF ÍNKEY*=“2“ THEN GO SUB 9000: PAPER P: INK T! BRIGHT B: FLASH F: FOR Z=0 
TO 21! PRINT OVER 1 iAT Z,0,,: NEXT Z: PAPER 8: INK 8: BRIGHT 8; FLASH 8: BEEP 1/ 
50,30 

130 IF INKEY*=“S“ OR INKEY*=*s“ THEN INPUT “NOMBRE;"! LINE a*: SAVE aSSCREENS 

1A0 IF INKEYS=“1“ OR INKEYS="L" THEN INPUT "NOMBRE:"! UNE a*¡ LOAD aSSCREEN* 

T50 PRINT OVER ITAT xb, yEnr^P^TAT - x7yT“"2"" — 

155 --LET x b— x¡ — LET yb ^y— 

160 60 SUB 9100 
200 GO TO 100 
3000 STOP 

9000 INPUT "PA,TI,BR,FL!‘!Pi":*¡T¡":";B!":"!FI RETURN 
9100 INPUT PRINT M J *PA: " iP( " TIÍ";Ti n BR:"íB¡" FL:"¡F: RETURN 

9900 BORDER O; POKE 23693,7: CLS : LOAD *"M"i 1i"as"SCREENS í GO TO 1 
9999 SAVE "ATTR“CODE 16384,PEEK 23Ó27+256*PEEK 23628-16382: GD TO 1 




PARTICIPA EH LA CA¬ 
RRERA CE LOS lOO 
METROS LISOS PROCU¬ 
RANDO ALCANZAR EL 
RECORD. 

PARA CORRER PULSA O 



1 IF INKEY»=“g" THEN GO TO 9999 

2 CLS : LET R-99.99: PRINT AT 10,10 



PARA LA CINTA - : PAUSE 200 






















■ 20 BORDA R 5 : P A PEtr~^—It^-CTT-"C l:S i P A PER-g T BR IG H T ' ~S i INK 3: PRINT A l l'd, Ui sS t 
1 TO 32 J : AT ; 9 , 0 ! PAPER 4 ,,, . .... ■,,... . . - ^ 

21 FOR; N=15 ID 17: . PRIWT AT N,0; 3RIGHT i , 7 : NgXT 

22 F>tó£|T 10,0¡ PAPER 4, , T'/‘ $ ¿ÉMoSBbBR&'Í 

23 PRINT AT 0,0» “ T?????" 5 ??????????????????? ??????????????????????' * * 3 ???? 

"? ‘i'i'y'i’i'/ó -i '»'•? ?"•»' r> 9 ’f ? 


24 50 SUB 9000 _____ 

25 PR1NT AT 2,10! INK O; "RECORD!"!R!"?" __ 

30 LET c=2: DEF FN t<>=<i6553Ó*PEEK 23674+Z5ó*PEEK 23673+PEEK 23672)/50) 

EB9B[^^SE^SS5S£S£55S 

80 GO SUB 9-1ÓG -} -• 

85 LET v*2o ibb. 1SBü 

90 PRINT AT 20,9¡"PREPARADO.: BEEP 1,0: RRINT AT 20,9¡" LISTO... ": BEE 
P 1,10; PRINT AT 20,9;" YA!!! “: BEEP 1/2,30S”PRINT AT 20,0,, 

„99 -P Q h t E— 238 J- 2 1- 0 i FPK -S— 23 6 75 -, O; POKE 23 6 7 4-;-9 -—-------- 

100 LET 1 = 0: IF 0< 20 THEN LET S=S+1: IF S> = 75 THEN GO TO 300 
102 IF INKEY*=" q“ THEN LET 1 = 1 r’ 

105 FOR N=i TO 0/1.5: NEXT N 
lió -PRINT AT i&,0;S*(S TO S+31 > 

1X5 IF INKEYS="q" THEN LET I=i+1 
116 IF i = l THEN LET v=v^5 

120 IF 0< 20 THEN GO SUB 9100 _ 

125 IF V<0 THEN LET 0=0 

130 IF Lv>i THEN LET 0=0+2: IF v>20 THEN LET v=20 
200 GO TC 100 

300 LET P=FN Til: PRINT AT 20,1TIEMPO: 

340 IF pO#- : THlgN LEI rfg P- PRINT' AT 20,17;» NUEVO RECORD FOR H=1 TO 10: GO SUB 
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9000: NEXT H 

1010 FGR A=1 T0 60 STEP 3: BEEP 1/50,ai NEXT A 

l-Oaa-P-R-IWT-AT— 11 ,. 7 -; " OTRA—PART-I- B A ? ( S/W~" --_-—_ 

1 030 PAUSE 43: BEEP 1/50.30: IF INKEYg= *'s “ THEN CLS : GO TO 5 _ 

1040 IF INKEYS= ” rt “ THEN RAND0MI2E USR O 
1050 CO TO 1030 

9000 FOR N=ó TO 9: POKE 23607,RND*50: PRINT INK 2¡ PAPER 5;AT N,O}"ABCDHE172H123 
45ó7S9ABCDEFGHIJKLM“ : BEEP 1/200,-10+RND#20: NEXT N: POKE 23607,60: RETURN 
9100 PRINT AT 14,7;"?7‘' 


9101 

IF c=l THEN PRINT 

AT 

15,7}"??“;AT 

16.71 

ti u 

9102 

IF c=2 THEN PRINT 

AT 

15,7; "??" i AT 

16,7; 

« « 

9 ror 

IF c=3 THEN PR INT 

AT 

15,7i J AT 

1 Q ? 7 i 

b bb 

9104 

IF c=4 THEN PRINT 

AT 

15,7i;AT 

1 ó í 7; 

ii *0 ^ «i 

9110 

LET C=C + i: IF 04 

THEN LET C*=i 



9200 

RETURN 





9998 

x : G 

EORDER O: POKE 23693, 
Í0 TO 1 

7: CLS : LOAD 

# " m 11 

í i; * me 11 CODE : LOAD *“m" ; 1 ; u ms ,J SCREEfv 


9999 SAVE "100m''CGDE 16334,PEEK 23Ó27+256*PEEK -2362S-163S2-í--G9-T-<3 1 





ESTA ES UHR SUBRU- 
T X HA EH C/H QUE HOS 
LISTA EL CONTENIDO 
DE LAS DIRECCIONES 
DE HEHOR IA, EH DEC. 
V HEKADECIHAL. 






flNRLIZR ES UNA RUTINA EN CODIGO MROUINR QUE TE PERMITE 
ANRLIZAR LOS CONTENIDOS DE LRS DIRECCIONES DE MEMORIA 
DE UN PROGRRMR. ESTR UBICADA EN EL BUFFER DE LA IMPRESORA, 
PERO ES PERFECTAMENTE REUBICABLE . . . 
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1 IF INKEYí="g" OR INKEY*=" 6 " THEN 60 TÚ 9999 

iO 60 SUB 9000 

20 PRINT AT 3,0;“ANALIZA ES UNA RUTINA EN CODIGO.MAQUINA QUE TE PERMITE ANA 

LIZAS"’’“LOS CONTENIDOS DE LAS DIRECCIO-"’’"NES DE MEMORIA DE UN PROGRAMA . 11 ES 
TA UBICADA EN EL BUFFER DE LA 11 ” “ IMPRESORA, PERO ES PERFECTAMENTE.REUBICABLE . 


-2S- 


SUB 


RlOO~ 

AT S.^04- 


”GU 

3 Q ERIMI 

KE 23306,INT (D/256) 
FRECE ANALIZA:"1000 
DIREC. DEC. HEX. 

35 60 SUB 9100 
40 PRINT AT 3,05"DATOS 
ES"’’"FINAL: 23332"’’ 


HA TOS PAR A SU-UXILIZACiOMJJ! — " 

POKE 23305,D-<256#PEEK 
25S FF COPY 
CHRS “ 


DIRRECCION DE COMIENZO 
23306)"'’"INFORMACION 


DE LA UBICACION:"COMIENZO: 
"ACCESO: RANDOMIZE USR 23296" 


23296" 1 *"L 0 N 6 ITUD: 86 BYT 


50 PRINT AT 21,Oí■QUIERES 

- 55 —PAUSE-- 5 -:—PAUSE - O— 


"GRABARLA (S/N) ?" 


IF INKEYS»"S" THEN 
THEN RANDOMIZE USR 


SAVE 

O 


-ANALIZA"CODE 23296,36 


60 POKE 23653,3: 

61 IF INKEY$="N" 

3000 STOP 

9000 POKE 23693,7: FOR a=7 TO 21: PRINT AT a,O,,: NEXT a: RETURN 

9 LOO— P-R-IN-T Pt 1; “ P-UL-SA— UNA—TECLA — PARA —CONTINUAR—---J-- PAUSE—Q-¡—BEEP- lV-5Q-r 3Q-: —INPUT-. 

* : GQ SUB 90 00: RET URN____ 

9998 BORDES O: POKE 23693,7: CL3 : LOAD *"M”j1}"ac“CODE : LOAD *"M"i 1í"as"SCREEN 

* : 60 TO 1 


9999 sftVE "ANALIZA"CODE 16334,PEEK 23627+25ó*PEEK 23623-16332: 60 TO 1 





RECOGE LfKS CELULAS 
DE EMERGIO C U 3 SIN 
TOCAR fi LOS HOHS- 
TRUOS .. V SIN QUE TE 
ALCAHCE EL CflROH. 

Q:f z: # 1:^ P s 



1 IF INKEYS^'a 11 THEN 60 TO 9999 _____—_—--- 

2 POKE 23675,0: POKE 23676,91: LET R=0: BORDER O: POKE 23693,7: CLS : PRINT A 
T 10,10; , *PARA LA CINTA”: PAUSE 200 
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5 CLS : PRINT AT 21,5?''PULSA <S> PARA EMPEZAR": GO TD 620 
10 INPUT LET P=0; LET V=3i LET F=1 

90 LET c=Oí GO SUB 1000: LET x=10: LET y=10í LET x = 10: LET y=I6S LET xc=2 

95 LET xb=x: LET yb=y 

96 LET a*="?" 

97 PRINT AT 10,1o;" “ 

100 - I - F I NRE YS- 11 q ~FHEN i_ET- x=x—ír^—IF x< I^FHE N LET x~l 
102 IF INKEY*="z“ THEN LET x=x+i: IF x>18 THEN LET x=18 
104 IF INKEY*="i" THEN LET aS="?“: LET y=y-l: IF y<2 THEN LET y-2 
106 IF INKEY*= "p “ THEN LET LET y=y + i: IF y >30 THEN LET y=30 

110 IF SCREENÍ (x,y)=“ft " THEN LET p=p+10: LET c=c+l¡ LET I=USR 23430: PRINT AT 
20,4?pí GO SUB 1100 

112 IF q>6 THEN LET LET 1=USR 23460: GO TO 90 

115 IF ATTR (x,yí>64 AND ATTR 5x,y}<72 THEN GO TO 500 

T20 PRINT AT xc,05" ": L £T _ x c = x c +T.2 AND x>xc)-(.2 AND lUxeJí PRINT AT xc,0¡“?" 
125 IF RND> .9 THEN PRINT PAPER Si INK 35 OVER 15AT xc.lj BRIGHT 8i "???????????? 
r?????????????????": LET 1=USR 23370: PRINT BRIGHT 85 OVER 1| PAPER 3; INK 8;AT 
xc,1;: IF xb=INT (XC+.5) THEN GO TO 500 
190 PRINT AT xb,yb;" “;AT x,y;as: LET xb=x: LET yb=y 

200 GO TO 100 

-500 LET- 4 =USR 234 90: LET -v=v—1 : — TF — v40 — THEN—GQ—TQ—600 — 

505 GO TO 80 _ _ 

600 PRINT AT 9,1 1f“GAME 0VER“: IF P>=R THEN LET R~F: PRINT AT 1 1,105 "NUEVO REC 

° p °m 

605 FOR n=1 TO 10: LET 1=USR 23400: NEXT n T 
610 PRINT M}"OTRA PARTIDA? iS/N) " 

620 IF INKEY*="s" THEN GO TO 10 

625 IF INKEYS=-V L “ THEN RANDOMIZE USR O 

630 GO TO 620 
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1000 CLS : PRINT INK 3;AT 0,05•????????????????????????????????*!AT 19,0;“?????? 

BB^^^^^BSSSS^SSSESSSSSSSBSSSSSSSESS^^SSSSESEi 

1002 FOR N=1 TO 13: PRINT INK 3; AT N,Oi" ?“¡AT N, 31 í NEXT N 

1 01 Q PRINT AT 20. 1; “PT : “ i P i AT 20 F .l 1» '' R C i " _LBJ_6T ZQ^2Ü 71VXl_I.LV íAX^0-^-2clí_" FA : 11 i F 
1020 LET A$="?????": FOR N=0 TO 4*F ____ 

1022 LET XP=1 +1NT (RND#1B): LET YP=2+INT <RND*30): IF SCREEN* (XP,YP}< >" " THEN 

GO TO 1022 

1025 PRINT BRIGHT l; INK 3i-INT (RND#5Í J AT XP,YP;A*(1+INT (RND#5) ) : LET L = USR 233 
70: NEXT N aBIWHl 

1023 GO SUB 1100 
1030 RETÜRN 

1 1 nn t PT y_g = 1 ± I mj <pHp* i a 1 —(-RND*30L;—I-F--SCR£ £N* <XP, YP+X->— - THEN 

G O TQ 1100 __ ___ 

1102 PRINT AT XP,YP;"Ft": RETÜRN 
3000 PAUSE O: STOP 

9998 POKE 23693,7: BOEDER O: CLS : LOAD *“m“ ; 1 i “ cc “ CODE : LOAD firi" i 1 i ” C S “ SCREEN 
: GO TO 

= ^99 S AVE "C. LASER" CODE ió384,PEEK 23ó27-r25ó*PEEK 23Ó28-16382: GO TO 1 




i 

IF I NKEYS= " G" OR INKEYS= ,, g” 

THEN GO 

TO 9999 



2 

CLS : PRINT AT 10,10;“PARA 

LA CINTA" 

: pause 200 : 

CLS 


5 

INRUT "PAPEL, tinta: "; Pi ": ■; 

T; PAPER 

p: border p: 

INK T: CLS 
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■ 90 &b€ - 

100 FOR A=0 TQ 2*PI STEP PI/C _________ 

llO LET X=COS A*Xl: LET Y=SIN A#Y1 
120 GO SUB 1000 
130 NEXT A 

140 POKE 23658,8: INPUT "S-SAVE R-EMPEZAR F-FIN OPCION "} LINE A* 

150 1F A*='S“ THEN INPUT "NOMBRE:"}B«: SAVE BSSCREENS - 

151 IF AS^R* THEN 50 TO 10 

152"TF” A$= " F " TfiENPRAÑDOMIZÉ USR O 
103 SO TQ 140 - 

999 REM > >A PARTIR DE LA LINEA 1000 PODRAS ALTERAR LAS INS TRUCCIONES 

PARA CREAR TUS PROPIOS DIBUJOS. PRODRAS USAR ALGUNOS YA 

DEFINIDOS ELIMINANDO EL REM 

1000 PLOT X+127,Y + 87: DRAW X,Y: DRAW Y,X 
1010 REM PLOT X+127, Y+87: DRAW A,X 

10 20 REM PLOT X+127.Y+S7: DRAW Y,X: DRAW A,A __|_ 

1030 REM~ GIROLE X+127, Y+87, A*5! DRAW X,Y 
1 - 040 R EH P LO T X + TZ7 , Y+B7: D R AW ~T,X,PI 

1050 REM PLOT X+127,Y+87! DRAW A*X/3 , A*Y/3 
2000 RETURN 

9998 BOEDER O: POKE 23693,7: CLS : LOAD *”M"1;”gs”SCREEN* : GO TO i 
°999 SAVE "GP.AF 3D"C0DE 16334, FEEK 23627+ 2566PEEK 23628-16382: GO TO 1 
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<KRRRTE> ES... 

UNA LUCHA ENTRE DOS 
«JUGADORES. GANA EL 
PRIHERO OUE DERRIBE 
A SU ADVERSARIO ÍO 
VECES. 



1 IF INKEY*="g" THEN 60 TO 9999 

2 BORDER 7: POKE 23693,56; CLEAR 29439: PRINT AT 10,10;"PARA LA CINTA": PAUSE 


200 

23607,60: CLS : PRINT 
JUG.DER. *- 

"-KARATE- ANGEL 

GARCÍA DELGADO 

«,*ii 

"CONTROLES: 

5 POKE 

11 Ift. T715. 

wflii W jt “ 

z 

M 

DERECHA X SYMBOL 

SH1FTATASUE<*} 

c 

N 

- A - 

♦ARRIBA 

—1_ 

1 

0 tfCENTKÜ 

B 

U TncHJu 




6 PRINT "_-__ | AT 20,6} "PULSA <S> PARA EMPEZAR" 

7 IF INKEYS="s" THEN 60 TO 9 

8 60 TO 7 

9 POKE 23607,114 

10 j_ET P1=0: L ET P 2 a O! LET ell**~H LE T c22«~l! LET y l^lO: LET y2=20: LET el=3& 

: LET c 2=68 - . ___ __ 

“15’ CLS eD _ SUB _ '3000 
20 GO SUB ÍOOO: GO SUB 2000 

30 POKE 23607,60! FOR n=l TO 10: BEEP 1/50,ni PAUSE 11-n: PRINT PAPER 5; OVER 
1 ;AT 3 ,12}"EMPEZAMOS": BEEP 1/50,ll-o: NEXT n 
90 POKE 23607,114 

100 OUT 254,15! IF IN 65278=251 THEN PRINT AT 15,ylí“ "JAT 16,yl}“ "}AT 17,yl 

5 « • LET y l=y 1 + 1: IF y l>y2-2- THEN -LET—y i=yl-l— ~ ~ 

102 IF IN 65278=253 THEN PRINT AT - ",AT 16,yl¡ * _"| AT 17,ylj_!' - “: _ LET y 

l=y1-1: IF y1 <6 THEN LET yl =6 
105 LET cll=cll+i: GO SUB 1000 

110 OUT 254,15: IF IN 32766=251 THEN PRINT AT 15,y2¡“ * í AT 16,y2f" "JAT 17,y2 
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!“ *: LET y2=y2-l: IF y2<yl+2 THEN LET y2=y2+l 

112 IF IN 32766*253 THEN PRINT AT 15,y2}" u )AT 16,y2j" * iAT 17,y2¡ n ": LET y 

2“y2+l: IF y2>24 THEN LET y2=24 
115 LET c22*c22+1; GO SUB 2000 

120 LET al=0: IF IN 65278=247 THEN BEEP 1/200,0! LET al = l _ 

121 LET a2=0: IF IN 32766*247 THEN BEEP 1/200,0; LET a2=l 

130 GUT 254,15:- IF IN 63486*254 THEN LET el1=2: LET el»<52 AND *1-0) + (40 AND al 
= 1 ) 

131 IF IN 64510=254 THEN LET cll*2: LET el=(56 AND al=0>+<48 AND al=l) 

132 IF IN 65022=254 THEN LET cll=2: LET cl-<60 AND al=0>+C44 AND al = li 

135 GO SUB 1000 

140 OUT 254,15: IF IN 61438=254 THEN LET c22=2! LET c2=<72 AND a2=l)+(34 AND a2 

* 0 ) __:- 

141 IF IN 57342= 253 THEN LET c22*2i LET c2=t80 AND a2=lM-(88 AND a2=01 _ 

142 IF IN 49150=253 THEN LET c22*2¡ LET e2=(76 AND a2=l)+C92 AND a2»0) 

145 GO SUB 2000 

147 IF C1>36 AND cl<52 THEN IF cl=e2-32 THEN IF yl=y2-2 THEN GO SUB 1100: GO SU 
B 2100 

150 IF cllOl OR y 1 < >y2-2 THEN GO TO 250 

152 IF c 1=40 AND c2< >84 THEN GO SUB 2100 . • /' __ 

T54 TF clT=48 AND c2088 THEN GO SUB 2100 
-L56— I -F— c- 1 =44 A ND e2< >92-THEN GO SUB 2100 
250 IF c22<>1 OR y2<>yl*2 THEN GO TO 300 
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252 IF c2=72 AND cl<>52 THEN GO SUB 1100 ^ . .. 

254 IF c2=80 AND cl<>56 THEN GO SUB 1100 

256 IF c2=7ó AND el 060 THEN GO SUB 1100 

900 GO TO 100 

1000 PRINT AT 15,y,lÍ,CHR* cliCHRÍ (Cl*l) }AT 1 6,yi;CHRS <cl*2nCHRg <cl+3 1,AT 17,y 

ll "lra-í LÉT c 1 l=c 11 -ÍT1F C11 <~1 THEN LET c l=36 ______ 

1005-1F c-1 1<0-THEN-L-ET- - 

1100 BEEP 1/50.-10: LET cl=60: GO SUE 1000: BEEP 1/20,.-201 PA'JSE 5: PRINT AT la, 
yl j “ " ; AT 1 ó, y 15 " “ 5 AT 17,yli* “ : LET yl=yl-U AND yl>6): LET cl = 64: GO SUB 1 

000: BEEP 1/20,-30 

110S BEEP 1/200,0: LET p2=p2+l 

1110 GO SUB 5 10 0 _—------- - 

1120 IF P2> = 10 THEN PO KE 23607,60: PRINT AT 7,9;“GANA EL 3UG. 2" : FOR W=1 TO 60. 

BEEP 1/50,n: NEXT N: PAUSE O: GO TO 5 

2000 PRINT INK 1 ; AT 15,y2;CHRS¡ c2¡CHR* ¡c2+l)jAT 16,y2¡CHJR* <c2+2);CHRS Ic2+3),A 
T 1 7 ,v25"no": LET d22=c22-i: IF c22<1 THEN LET c2=6S 
2005 IF c22< O THEN LET c22 = 0 

_ 1U . LE T c '2=VZ^ — GU~~SÜB7ZQ0'0T BEbH T AT 15, 

"¡aT u,!?:» !L; AT 1 7 , y24-T - " ¡ 1 FT — y2=y2r_fj—ANIL-y24-£-4 T ! L FT .r^S á: G O S U B 

2000: BEEP 1/20,-30 

2105 BEEP 1/200,0: LET pi=pl+l 

2120 IF P1>=10°THEN POKE 23607,60: PRINT AT 7,9;“GANA EL JUG. 1“: FOR N=i TO 60: 
BEEP 1/50, r¡: NEXT N: PAUSE O: GO TO 5 

2200 RETURN ____ _ _____— r n r n — PRINT Ai 20 

PRINT AT S ó t Ol■•“■de&e&e&gee&eeeeeeeegeeeeeeeeeeef * FÜR n í ro 7 ‘ 

3005 PRINT AT 1,2; INK 3i"j 5 AT 1,29, k , AT 1,3, . W GO SUB 

R N=2 TO S: PRINT AT N,2; PAPER Si “ * N&X 

3100 F0KE 20607,60: PRINT AT 5,3í M l GOLPES¡ - "SPliAT 5,161“2 GOLPES: ,P 2. POKl 2 

pó2;Pp S ofp W P 77660.7: CLS = LOAD 1 ¡ÜÜaSS-i-kaaS J ■ 1, ■ ks' SCRE EN 

¥ : GO TO 1 ■ "7. 

999? SAVE "KARATE”CODE 16384,14000: GO TO 1 



SI PREFIERE SUSCRIBI 
POR^TELEFONO... 
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A remitir a SOFT-SPEQTRUM OL Bailen. 20. 1.° Izda: 28005 Madrid 
Deseo suscribirme a los 11 n, ps de la revista por sólo 1950 pts, 

0 importe lo haré efectivo: 

□ Por giro postal n.*... 

□ Por talón nominativo adjunto. 

□ Contra reembolso a la recepción del primer ejemplar, más gastos de envío. 


Desao suscribirme a partir del n.* ....(inclusive). 


Nombre y apellidos:..,............. 

Domicilio: .........-----...*.*... 

Ciudad: .......... Teléfono. 

Fecha ............. Firma .... 
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~1 IF “IMKEY*="B" OR INKb¥*="g' 1HbN GO lU vvvv 
2 CLS i PRINT AT 10 , 10 i"PARA LA CINTA": PAUSE 200: CLS 
10 INPUT "PAPEL,tinta:“ íPi"5T: input -X inicial:"5X,“Y inicial:"}Y 
is paper p: ink t: border p: let p=p+ió: cls 
20 LET C = 1 
30 BEEP 1/50,30 

90 P L OT O, RAU- 255-,-0 ;_-DRAW O-, 1 7 5: -DRA M - 2 55 , O i —DRA M O , - 125- 

85 LET B«=* 1-PINCEL 2 -MENU 11 _ 

90 GO SUB 300 _ - . 

100 OUT 234,p: IF IN 64510=254 THEN LET Y=Y+1; IF Y>167 THEN LET Y=167 

101 IF IN 65022=254 THEN LET Y=Y-1: IF Y<7 THEN LET Y=7 

102 IF IN 57342=253 THEN LET X=X- 1 : IF X<7 THEN LET X=7 

103 IF IN 57342=254 THEN LET X=X+1¡ IF X>247 THEN LET X=247 

104 IF C< >2 THEN PLOT INVERSE C 5 >VY______ 

.105 PLOT OVER ljx-3,y: DRAW OVER 1,6,0: PLOT OVER l¡x,y+3: DRAW OVER lfO ,-6 

107 IF I N KEY *= lt l lt T H E N G O S UB 300 - 

105 PLOT OVER 1J x-3,y: DRAW OVER lió,O: PLOT OVER ÜXjY + S: DRAW OVER 150,-6 
110 IF INKEY*="2" THEN GO TO 400 

200 GO TO 100 

300 LET C=C + l: IF 02 THEN LET C = 0 

310 IF C=1 THEN INPUT PRINT ftl 5 "PINCEL; BORRA",BS 

311 IF C=0 THEN INPUT " 11 : PRINT MI "PINCEL; P INTA", B$ 

312 IF C-2 THEN INPUT 11 ": PRINT Mí "PINCEL: NO PINTA" 5 B¥ 

320 RETÜRN 

400 INPUT ""i PRINT M;"S-SAVE R-RUN N-FIN M-CONTINUAR ?" 

410 POKE 23653,8: IF INKEY*="S" THEN INPUT "NOMBRE:"? LINE A*: SAVE AfcSCREEN* : 
GO TO 400 

411 IF INKEY*=“R" THEN RUN 10 

412 IF INKEY*= ,, N" THEN RANDOMIZE USR O 

4Í4—IF'"“I"NKEY’*= J ‘M'* — THEN GO StJB _ "3T07" 'GO" TO 150 

420 GO IO 400 -- 

9993 BORDER O: POKE 23693,7: CLS : LOAD *"m" i 15 ’’p s " SCREENS : GO TO 1 
9999 save "PINCEL"CQDE 16334,PEEK 23627+256#PEEK 23623-16332: GO TO 1 


50TL- _ 

SPECTRUM 1 — 1 

Bailén, 20 - 1° - Izda. 

28005 MADRID 
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LAPIZ OPTICO 
C RAYON OPTIQUE 
LICHTGRIFFEL 




LA MAS ALTA CALIDAD EN LAPIZ OPTICO, MAS UN PROGRAMA DE ALTA CALIDAD. 

LO MEJOR AL MEJOR PRECIO 

DRAGON - SPECTRUM - COMMODORE 64 - VIC 20 - TANDY 


• DIBUJA CIRCULOS. 

• DIBUJA LINEAS. 

• DIBUJA CON MANOS LIBRES. 

• RELLENA AREAS DE COLOR. 

• GUARDA Y CARGA DIBUJOS A Y 
DESDE LA CINTA (CASSETTE). 

• COMPLETA FACILIDAD DE BORRADO. 

• ENTRADA Y PROCESO DE DATOS. 

• SELECCION DE MENU Y CONTROL. 

• IDEAL PARA JUEGOS. 



Distribuidor: GTS 

Bailén, 20 - 1.° Izda. 
(91) 266 66 01/266 66 02 
28005 MADRID 






















DISPONIBLE PARA ZX SPECTRUM 



















